/ Amiga Plus 2000 #4 / Amiga Plus CD - 2000 - No. 4.iso / Tools / Dev / powerd / modules.lha / modules / graphics / gfxmacros.b

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 44 4d 4f 44 00 00 00 0e | 23 64 65 66 00 14 00 1f |DMOD....|#def....|
|00000010| 00 00 00 8e 00 00 03 a8 | 00 00 00 15 04 0a 00 1a |........|........|
|00000020| 00 02 00 02 00 02 00 01 | 04 0a 00 1a 00 02 00 02 |........|........|
|00000030| 00 02 00 01 01 04 00 1a | 00 01 03 05 00 14 00 01 |........|........|
|00000040| 00 01 00 01 03 05 00 15 | 00 01 00 01 00 01 02 05 |........|........|
|00000050| 00 14 00 01 00 01 01 08 | 00 17 00 01 02 10 00 40 |........|.......@|
|00000060| 00 01 00 01 02 11 00 57 | 00 01 00 01 02 08 00 0b |.......W|........|
|00000070| 00 01 00 01 02 07 00 23 | 00 01 00 01 03 07 00 1e |.......#|........|
|00000080| 00 01 00 01 00 01 02 07 | 00 33 00 01 00 01 00 0a |........|.3......|
|00000090| 00 20 00 09 00 21 00 0a | 00 21 00 09 00 22 00 0b |. ...!..|.!..."..|
|000000a0| 00 21 00 0a 00 21 00 3c | 67 72 61 70 68 69 63 73 |.!...!.<|graphics|
|000000b0| 2f 72 61 73 74 70 6f 72 | 74 2e 68 3e 00 41 72 65 |/rastpor|t.h>.Are|
|000000c0| 61 43 69 72 63 6c 65 00 | 72 70 00 63 78 00 63 79 |aCircle.|rp.cx.cy|
|000000d0| 00 72 00 41 72 65 61 45 | 6c 6c 69 70 73 65 28 72 |.r.AreaE|llipse(r|
|000000e0| 70 2c 63 78 2c 63 79 2c | 72 2c 72 29 3b 00 44 72 |p,cx,cy,|r,r);.Dr|
|000000f0| 61 77 43 69 72 63 6c 65 | 00 72 70 00 63 78 00 63 |awCircle|.rp.cx.c|
|00000100| 79 00 72 00 44 72 61 77 | 45 6c 6c 69 70 73 65 28 |y.r.Draw|Ellipse(|
|00000110| 72 70 2c 63 78 2c 63 79 | 2c 72 2c 72 29 3b 00 43 |rp,cx,cy|,r,r);.C|
|00000120| 45 4e 44 00 63 00 43 57 | 61 69 74 28 63 2c 31 30 |END.c.CW|ait(c,10|
|00000130| 30 30 30 2c 32 35 35 29 | 43 42 75 6d 70 28 63 29 |000,255)|CBump(c)|
|00000140| 00 43 57 41 49 54 00 63 | 00 61 00 62 00 43 57 61 |.CWAIT.c|.a.b.CWa|
|00000150| 69 74 28 63 2c 61 2c 62 | 29 43 42 75 6d 70 28 63 |it(c,a,b|)CBump(c|
|00000160| 29 00 43 4d 4f 56 45 00 | 63 00 61 00 62 00 43 4d |).CMOVE.|c.a.b.CM|
|00000170| 6f 76 65 28 63 2c 26 61 | 2c 62 29 43 42 75 6d 70 |ove(c,&a|,b)CBump|
|00000180| 28 63 29 00 43 49 4e 49 | 54 00 63 00 6e 00 55 43 |(c).CINI|T.c.n.UC|
|00000190| 6f 70 70 65 72 4c 69 73 | 74 49 6e 69 74 28 63 2c |opperLis|tInit(c,|
|000001a0| 6e 29 00 42 4e 44 52 59 | 4f 46 46 00 77 00 28 77 |n).BNDRY|OFF.w.(w|
|000001b0| 29 2e 46 6c 61 67 73 26 | 3d 7e 41 52 45 41 4f 55 |).Flags&|=~AREAOU|
|000001c0| 54 4c 49 4e 45 00 53 61 | 66 65 53 65 74 57 72 69 |TLINE.Sa|feSetWri|
|000001d0| 74 65 4d 61 73 6b 00 77 | 00 6d 00 49 46 20 47 66 |teMask.w|.m.IF Gf|
|000001e0| 78 42 61 73 65 2e 4c 69 | 62 4e 6f 64 65 2e 56 65 |xBase.Li|bNode.Ve|
|000001f0| 72 73 69 6f 6e 3c 33 39 | 28 77 29 2e 4d 61 73 6b |rsion<39|(w).Mask|
|00000200| 3a 3d 28 6d 29 45 4c 53 | 45 20 53 65 74 57 72 69 |:=(m)ELS|E SetWri|
|00000210| 74 65 4d 61 73 6b 28 77 | 2c 6d 29 00 53 61 66 65 |teMask(w|,m).Safe|
|00000220| 53 65 74 4f 75 74 6c 69 | 6e 65 50 65 6e 00 77 00 |SetOutli|nePen.w.|
|00000230| 63 00 49 46 20 47 66 78 | 42 61 73 65 2e 4c 69 62 |c.IF Gfx|Base.Lib|
|00000240| 4e 6f 64 65 2e 56 65 72 | 73 69 6f 6e 3c 33 39 28 |Node.Ver|sion<39(|
|00000250| 77 29 2e 41 4f 6c 50 65 | 6e 3a 3d 63 28 77 29 2e |w).AOlPe|n:=c(w).|
|00000260| 46 6c 61 67 73 7c 3d 41 | 52 45 41 4f 55 54 4c 49 |Flags|=A|REAOUTLI|
|00000270| 4e 45 45 4c 53 45 20 53 | 65 74 4f 75 74 6c 69 6e |NEELSE S|etOutlin|
|00000280| 65 50 65 6e 28 77 2c 63 | 29 00 53 65 74 57 72 4d |ePen(w,c|).SetWrM|
|00000290| 73 6b 00 77 00 6d 00 28 | 77 29 2e 4d 61 73 6b 3a |sk.w.m.(|w).Mask:|
|000002a0| 3d 6d 00 53 65 74 4f 50 | 65 6e 00 77 00 63 00 28 |=m.SetOP|en.w.c.(|
|000002b0| 77 29 2e 41 4f 6c 50 65 | 6e 3a 3d 63 28 77 29 2e |w).AOlPe|n:=c(w).|
|000002c0| 46 6c 61 67 73 7c 3d 41 | 52 45 41 4f 55 54 4c 49 |Flags|=A|REAOUTLI|
|000002d0| 4e 45 00 53 65 74 41 66 | 50 74 00 77 00 70 00 6e |NE.SetAf|Pt.w.p.n|
|000002e0| 00 28 77 29 2e 41 72 65 | 61 50 74 72 6e 3a 3d 70 |.(w).Are|aPtrn:=p|
|000002f0| 28 77 29 2e 41 72 65 61 | 50 74 53 7a 3a 3d 6e 00 |(w).Area|PtSz:=n.|
|00000300| 53 65 74 44 72 50 74 00 | 77 00 70 00 28 77 29 2e |SetDrPt.|w.p.(w).|
|00000310| 4c 69 6e 65 50 74 72 6e | 3a 3d 70 28 77 29 2e 46 |LinePtrn|:=p(w).F|
|00000320| 6c 61 67 73 7c 3d 46 52 | 53 54 5f 44 4f 54 28 77 |lags|=FR|ST_DOT(w|
|00000330| 29 2e 6c 69 6e 70 61 74 | 63 6e 74 3a 3d 31 35 00 |).linpat|cnt:=15.|
|00000340| 4f 46 46 5f 56 42 4c 41 | 4e 4b 00 63 75 73 74 6f |OFF_VBLA|NK.custo|
|00000350| 6d 2e 69 6e 74 65 6e 61 | 3a 3d 42 49 54 43 4c 52 |m.intena|:=BITCLR|
|00000360| 7c 49 4e 54 46 5f 56 45 | 52 54 42 00 4f 4e 5f 56 ||INTF_VE|RTB.ON_V|
|00000370| 42 4c 41 4e 4b 00 09 63 | 75 73 74 6f 6d 2e 69 6e |BLANK..c|ustom.in|
|00000380| 74 65 6e 61 3a 3d 42 49 | 54 53 45 54 7c 49 4e 54 |tena:=BI|TSET|INT|
|00000390| 46 5f 56 45 52 54 42 00 | 4f 46 46 5f 53 50 52 49 |F_VERTB.|OFF_SPRI|
|000003a0| 54 45 00 63 75 73 74 6f | 6d 2e 64 6d 61 63 6f 6e |TE.custo|m.dmacon|
|000003b0| 3a 3d 42 49 54 43 4c 52 | 7c 44 4d 41 46 5f 53 50 |:=BITCLR||DMAF_SP|
|000003c0| 52 49 54 45 00 4f 4e 5f | 53 50 52 49 54 45 00 09 |RITE.ON_|SPRITE..|
|000003d0| 63 75 73 74 6f 6d 2e 64 | 6d 61 63 6f 6e 3a 3d 42 |custom.d|macon:=B|
|000003e0| 49 54 53 45 54 7c 44 4d | 41 46 5f 53 50 52 49 54 |ITSET|DM|AF_SPRIT|
|000003f0| 45 00 4f 46 46 5f 44 49 | 53 50 4c 41 59 00 63 75 |E.OFF_DI|SPLAY.cu|
|00000400| 73 74 6f 6d 2e 64 6d 61 | 63 6f 6e 3a 3d 42 49 54 |stom.dma|con:=BIT|
|00000410| 43 4c 52 7c 44 4d 41 46 | 5f 52 41 53 54 45 52 00 |CLR|DMAF|_RASTER.|
|00000420| 4f 4e 5f 44 49 53 50 4c | 41 59 00 63 75 73 74 6f |ON_DISPL|AY.custo|
|00000430| 6d 2e 64 6d 61 63 6f 6e | 3a 3d 42 49 54 53 45 54 |m.dmacon|:=BITSET|
|00000440| 7c 44 4d 41 46 5f 52 41 | 53 54 45 52 00 00       ||DMAF_RA|STER..  |
+--------+-------------------------+-------------------------+--------+--------+